home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / telecomm / flashdoc.lzh / SETPATH.DO < prev    next >
Text File  |  1992-02-21  |  2KB  |  62 lines
  1. >** - top of file -|
  2. >**
  3.  
  4. setpath.do V. 2.3.0 - 09/25/91
  5.  
  6. Copyright (C) 1992 by Al Fasoldt.
  7.  
  8. This script is offered as an example of how to get Flash to 
  9. automatically check paths on a floppy disk, a hard disk and a 
  10. ramdisk to see which DO files it should acdess and what file 
  11. path it should use to save and load files.
  12.  
  13. Obviously, you would need to tailor it to your own setup.
  14.  
  15. |
  16.  
  17. >** sets filesave path as P, do path as Q, flash dir as R.|
  18. >** without HD or RD, do files must be in A:\DO\.|
  19. >$P|
  20. >$Q|
  21. >ca cl|
  22. >ca on|
  23. >log xxxxxxxxxxxxxxxxxxxxxxxxx|
  24. >ca off|
  25. >L: echeck|
  26. >sa ca e:\flash\drivchek.dat|>** hard drive.|
  27. >pa 1|
  28. >op e:\flash\drivchek.dat|
  29. >if ~op jmp pcheck|
  30. >$P E:\BOB\|
  31. >$Q E:\FLASH\DO\|
  32. >$R E:\FLASH\|
  33. >type "|Hard drive path set.|"|
  34. >jmp showpath|
  35. >L: pcheck|
  36. >sa ca p:\drivchek.dat|>** ramdisk.|
  37. >pa 1|
  38. >op p:\drivchek.dat|
  39. >if ~op jmp acheck|
  40. >$Q P:\|
  41. >type "|Ramdisk path set.|"|
  42. >** HD off; use ramdisk.|
  43. >L: acheck|
  44. >sa ca a:\drivchek.dat|
  45. >op a:\drivchek.dat|
  46. >if ~op ty " |DRIVE A: IS NOT RESPONDING."|
  47. >if ~op xd|>** exit to desktop if no HD, no RD, no floppy.|
  48. >$P A:\|
  49. >$R A:\|
  50. >type "|Floppy path set.|"|
  51. >if Q jmp showpath|>** if var Q exists, you are done.|
  52. >$Q A:\DO\|>** otherwise, make it this path.|
  53. >L: showpath|
  54. >type  |
  55. >type ------|>type|>type Paths:|>type|>type ------|
  56. >type|>type|>type Files: |>type $P|>type|
  57. >type Scripts: |>type $Q|>type|
  58. >type Flash default root directory: |>type $R|>type||
  59. >type|
  60. >end|
  61. >** end|
  62.